home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / aptbbs1.lha / APTBBS1 / APT / Batch / Mail.Batch.traptoss < prev    next >
Text File  |  1995-10-10  |  1KB  |  43 lines
  1. ; This script unpacks and tosses mail and packs outgoing mail
  2.  
  3. ; First, I lower my task priority so I do not slow down anything else
  4. changetaskpri -1
  5.  
  6. ; Second, I make a safety backup copy of the inbound mail bundles
  7. copy mail:inbound/????????.((mo|tu|we|th|fr|sa|su)(0|1|2|3|4|5|6|7|8|9)|pkt) mail:bak clone
  8.  
  9. ; Then I call TrapToss to toss and scan mail. The NOSCANOUTBOUND and
  10. ; NOROUTING keywords tell TrapToss that it should not mess with .FLO files
  11. ; in the outbound directory at this time nor should it archive anything
  12. ; yet. This is important because TrapDoor could just be trying to send an
  13. ; archive and the two programs might conflict.
  14.  
  15. failat 21
  16. TrapToss toss scan noscanoutbound norouting
  17.  
  18. ; So before I start changing archives in the outbound directory, I turn
  19. ; off TrapDoor (i.e. I disable inbound calls)
  20.  
  21. ;failat 101
  22. ;TrapTell "rings 99"
  23. ;TrapTell "rings 99"
  24. ;failat 21
  25.  
  26. ; Now I can pack the mail
  27.  
  28. TrapToss scanoutbound routing
  29.  
  30. ; Finally, I re-enable TrapDoor
  31.  
  32. ;failat 101
  33. ;TrapTell "rings 1"
  34. ;TrapTell "rings 1"
  35. ;failat 21
  36.  
  37. ApT:ApTmail
  38. rx ApT:rexx/ImportTics.rexx
  39.  
  40. ; set task priority back to normal
  41.  
  42. changetaskpri 0
  43.